#!/usr/bin/env perl

use strict;
use utf8;

my $string = <STDIN>;
my $sub = <STDIN>;

chomp $string;
chomp $sub;

my $index = -1;

while (($index = index($string, $sub, $index + 1)) != -1) {
	print "$sub Appear in $string index -> { $index }\n";
}		

